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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT COR- 
PORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE wr. DESCRIBED IN yy DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER LICENSE FOR USE ON A SI 

(WITH INCLUSION OF DIGITAL*S COPYRIGHT NOTICE) ONLY 

SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN URITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
> paaamaacnia OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLED BY DIGI- 


COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 








1 
CKKACAO 11/44 POWER FAIL MACRO M1113 10=DEC-79 10:05 PAGE § 


CONTENTS 


ABSTRACT 

REQUIREMENTS 

EQUIPMENT 

STORAGE 

PRELIMINARY PROGRAMS 
LOADING PROCEDURE 
STARTING PROCEDURE 
STARTING ADDRESS 
CONTROL SWITCH SETTINGS 


OPERATING PROCEDURE 


MANUAL 

AUTOMATIC 

APT SETUP 
SUBROUTINE ABSTRAC 
ERRORS 
RESTRICTIONS 
MISCELLANEOUS 
EXECUTION TIME 
STACK POINTER 


SVRARRATVVSS 





D 
CKKACAO 11/44 POWER FAIL MACRO M1113 10=DEC-79 10:05 PAGE 4 


ABSTRACT 


THIS PROGRAM IS MADE UP OF 11 SUBTESTS TO CHECK OUT _ THE 
POWER FAIL ON THE 11/44. THE 2 MSEC. POWER DOWN AND POWER 

UP TIME IS CHECKED ON EACH POWER FAIL. INITIALLY POWER FAILS 

ARE TRIED IN ALL PROCESSOR MODES THEN UNDER ERROR CONDITIONS LIKE 
STACK OVERFLOW, TIME OUT, AND ODD ADDRESS AND MEMORY MANAGEMENT ABORTS. 
FINALLY A MEMORY VOLATILITY TEST IS RUN ON ALL AVAILABLE MEMORY. 


——S 4 
ALLS SSLFARAVLS 


REQUIREMENTS 


EQUIPMENT 

eins STANDARD COMPUTER WITH UP TO 1M WORDS OF CORE MEMO- 
RTAIS PROGRAM WILL WORK WITH AUTOMATIC POWER FAIL HARDWARE 
(MANUFACTURING ONLY) OR WITH MANUALLY TRIGGERED POWER 
FAILURES FOR EACH TEST. 

STORAGE 


PROGRAM STORAGE - THE ROUTINES USE MEMORY 0 - 10142 


PRELIMINARY PROGRAMS 


IT IS ASSUMED THAT CPU,TRAPS,MEMORY MANAGEMENT AND UNIBUS MAP 
DIAGNOSTICS HAVE BEEN RUN SUCCESSFULLY. 


LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR ‘‘XXDP’' MEDIA. 


STARTING PROCEDURE 

STARTING ADDRESS 

200 IS THE PROGRAM STARTING ADDRESS 

CONTROL SWITCH SETTINGS 

SWITCH REGISTER <14> CONTROLS REPEATING OF A_ FAILING TEST. 


THIS BIT MUST BE SET TO A 1 (AFTER ERROR HALT) EVERY TIME 
THE TEST IS TO BE REPEATED. 
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OPERATING PROCEDURE 
MANUAL 


START PROGRAM AT ADDRESS 200. 

A MESSAGE WILL BE TYPE INDENTIFYING THE NAME OF THE PROGRAM, 
THE SIZE OF MEMORY, AND RUNNING INSTRUCTIONS. THE NUMBER OF 
EACH TEST WILL BE PRINTED AT THE BEGINNING OF EACH TEST. 
MANUALLY POWER DOWN THEN UP AFTER EACH TEST NUMBER APPEARS 
ON THE TTY. DO THIS FOR EACH TEST UNTIL THE END OF PASS 
MESSAGE IS RECEIVED. 


AUTOMATIC 


START THE PROGRAM AT 200,THE PROGRAM SIZES FOR THE PRESENCE OF 
AUTOMATIC POWER FAIL HARDWARE.IF FOUND, TESTING WILL BE PROCEED 
WITH NO MANUAL INTERVENTION REQUIRED.TEST NUMBERS WILL BE PRINTED 
PRIOR TO EACH TEST. 


APT SETUP 


THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS 
ARE FOR EXECUTION WITH A 11/44 PROCESSOR, CACHE, 
16K CORE MEMORY, AND 300 BAUD. 

THE FOLLOWING IS A PROGRAM LOAD FILE USED BY APT: 
1. &€ TABLE ‘A' IS USED FOR APT DUMP MODE. 


2. E TABLE ‘B* IS USED FOR APT QV AND RUN TIME MODES. 
SENVM=240 SUPRESSES TYPEOUTS TO THE TERMINAL AND 
$SWREG=4000 INHIBITS TEST ITERATIONS 


1ST PASS 


LONGEST ADDITIONAL 
TIME ws! RUN TIME 


E TABLES 


8 
E-MODE /S-MODE 240/001 
(SENVM/SENV) 


SWITCH REGISTER 1 004000 
($SWREG) 


1 
1 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1} 
1 
: 
: 
: 
1 
: 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


GRILLS LSSRERALAVSSISVSARANISSELEALERV IS SOVFALANYS 


SWITCH REGISTER 2 000000 000000 
CPU TYPE/OPT IONS 00/0000 
MEMORY MAP CODE 1 


SoRERcSes 


NN 
o 
N 
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SUBROUTINE ABSTRACT 
PDWDWN AND POWUP 


THESE ROUTINES ARE USED TO SAVE AND RESTORE VITAL REGISTERS 
AND TEST THE TIME ALLOWED FOR POWER FAIL BY THE PROCESSOR. 


FRRORS 
ERROR PRINTOUT 


THE PROGRAM WILL IDENTIFY THE FAILING TEST AND PROVIDE 
PERTENANT INFORMATION ON ERROR. 


ERROR HALTS 


AFTER AN ERROR PRINTOUT, THE PROGRAM WILL HALT AND RETURN 
CONTROL TO THE CON 

IF USING POWER FAIL HARDWARE AND YOU WISH TO STOP THE PROCESSOR 
YOU SHOULD USE THE HALT SWITCH ON THE FRONT PANEL,THE CONSOLE 
CTRL P WILL HANG UP TTY.TO GET IN CONSOLE MODE PUT HALT SWITCH 
ON,TO GET BACK INTO PROGRAM SET THE SWICTH TO RUN. 


IF AN ERROR OCCURS IN TEST 11 (THE MEMORY VOLITILITY TEST) 

THE PHYSICAL ADDRESS OF THE BAD MEMORY LOCATION CAN BE 

FOUND BY USING +) if AS BITS <21:6> AND ADDING VIR.ADD 
LOCATION <12:0> T 

IF AN ERROR IS DETECTED IN THE POWER DOWN OR POWER UP SUBROUTINE 
bg RR ae AFTER THE ERROR HALT,WILL RESTART THE PROGRAM 


SEQ 0006 
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ERROR RECOVERY 
CONTINUE OR RESTART AT 200 


RESTRICTIONS 
NONE 


MISCELLANEOUS 


EXECUTION TIME 
5 SEC IF IN AUTOMATIC , N/A IF IN MANUAL 


STACK POINTER 
STACK IS INITALLY SET TO 1100 
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276 

289 -TITLE CKKACAO 11/44 POWER FAIL 
3*COPYRIGHT (C) 1979 
;*DIGITAL EQUIPMENT CORP. 
s SMAYNARD, MASS. 01754 


! #PROGRAM BY CHUCK ROBINSON 


THIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
[*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


-* 


-SBTTL OPERATIONAL SWITCH SETTINGS 
3* 
SWITCH USE 


°@ 

-* 

;* 14 LOOP ON TEST 

;* 10 INHIBIT BELL AT END-OF-PASS 


-SBTTL_ BASIC DEFINITIONS 
2 * INITIAL ADDRESS OF “ STIRS POINTER *** 1100 *** 
TA 1100 FIRST ADDRESS OF THE STACK 
KERNEL STACK 
: SUPERVISOR STACK 
USESTK= STACK-300 ;;USER STACK 
ERROR=EMT 


SCOPE=I0T 
PS= 177776 ; PROCESSOR STATUS WORD 
PSW=PS 


STKLMT= 177774 23 STACK LIMIT REGISTER 
;;PROGRAM INTERRUPT REQUEST REGISTER 

; ;HARDWARE SWITCH REGISTER 

DWARE DISPLAY REGISTER 
177546 ‘LINE CLOCK (KW11-L) STATUS REGISTER 
; *MISCELLANEOUS DEF INITIONS 
HT= 11 ODE et! TAB 


:: AGE RETURN 
CRLF= CODE FOR CARRIAGE RETURN-LINE FEED 
: *GENERAL PURPOSE recisték. DEF INI TIONS 

RO= RAL REGISTE 


REGISTER 


3:STACK POINTER 
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BASIC DEFINITIONS 


000006 SSP=SP 
000006 USP=SP 
000007 PC= %7 ; PROGRAM COUNTER 
Sate LEVEL DEFINITIONS 


0 
1 
2 
3 
4 
5 
6 
7 
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BASIC DEFINITIONS SEQ 0010 


B1T8=8iT08 


3 *BASIC **CPU"" TRAP VECTOR ADDRESSES 
VEC= 37 OUT AND OTHER ERRORS 
cayegy® | AND ILLEGAL INSTRUCTIONS 


7: TRACE T 
: BREAKPOINT NT TRAP (BPT) 
Ad yea TRAP (IOT) **SCOPE** 


FAIL 
:ERULATOR TRAP (EMT) **ERROR** 
23 TRAP’ TRAP 


: TTY KEYBOARD eto 

33 TTY PRINTER VECTOR 

LKVEC= LINE CLOCK (KW11-L) VECTER 
CACHVEC= 114 3: CACHE ERROR INTERRUPT VECTOR 
PIRQVEC=240 : 7 PROGRAM INTERRUPT REQUEST VECTOR 

000250 MMVEC= 250 MEMORY MANAGEMENT VECTOR 

CACHE REGISTER” DEF INI TIONS 
177740 77740 
177742 


dignebonsie"; 3 


ona 


R 16 BITS OF ADDRESS THAT CAUSED ERROR 
SUPPER SIX gt he — THAT CAUSED ERROR 


MEMORY MAINTENENCE REGISTER 
7752 SHIT ASS REGISTER "1°" IMPLIES HIT IN CACHE 
CPU. REGISTER DEF INL TIONS 
177760 MORY SIZE REGISTER NUMBER TO PUT INTO A PAR 
TO GET TO THE LAST 32 WORDS OF MEMORY 


OF 
= 177762 THIGH SIZE REGISTER, RESERVED FOR FUTURE USE 
$3 NTLY ALL ZE 


177764 =: STE 
177766 [CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED 
[THE TRAP TO ERRVEC (000004) 
.SBTTL MEMORY Pe DEF INITIONS 
;sMEMORY MANA MENT STATUS REGISTER ADDRESSES 


1998 of 
177576 
172516 


1=R1 
son 
;*USER ‘‘I'* PAGE DESCRIPTOR REGISTERS 
UIPDRO= 


= 177 
17760 
77604 


177 
17761 


JIIIIS 
S2R8 
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MEMORY MANAGEMENT DEFINITIONS SEQ 0011 


177614 UIPDR6= 177614 
177616 UIPDR7= 177616 
; *USER . ay DESCRIPTOR REGISTORS 


UDPDR6= 17 
UDPDR7= 177636 


UDPAR 77676 
;*SUPERVISOR *‘I’* PAGE DESCRIPTOR REGISTERS 
Tete 


= ronsnons MN 
NNN 
sOfLMNO 


D'' PAGE DESCRIPTOR REGISTERS 


a om 


“"I'* PAGE ADDRESS REGISTERS 


/ 


~ Hee NNN oN 
KEVSRRVS 


NNNNNNNN 
PONMIMINININNNY 
3 RRR 

eNO 


6 
"D'' PAGE ADDRESS REGISTERS 
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MEMORY MANAGEMENT DEFINITIONS SEQ 0012 


NINN 
MMMNDY 
NSSF 

* 


N“N 

mn 
RN 
ax 


276 
* PAGE DESCRIPTOR REGISTERS 


S288 
NNNNN EN NNNNNNN 


- 


316 
*D'' PAGE DESCRIPTOR REGISTERS 
2320 


MASK WWW 
Nm 
eM 


1 
1 
1 
1 
1 
1 
1 
17; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


KDPDR7= 172336 
;*KERNEL *‘I'’ PAGE ADDRESS REGISTERS 
ARO= 172340 


Aaitaiiin aitnitainitat sitaaitaiat 
EEE ¥ 
NO 


1 
1 
1 
1 
1 
1 
1 
172: 
; *KERNEL 
KDPARO= 1723 
1 
1 
1 
1 
1 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
- 1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SSSISIST ses 
SRNISESEES LESSEE 


7 
72376 
BUS MAP REGISTER DEFINITIONS 


6 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPLXX* 
BITS OF THE MAP REGISTERS ARE LABELED ‘MAPHXX' 


X 
x 


x 

3 
wn AR SS SITS 
OASIS E RS DROSS 


aa 
BS 


3 


tk a ot 
SESS 
—= 


Buu 


N 
Sees 
NSarwy 
NSARVO 





v8 29248 $IPNALSY 
SSSSSssess orenrenn 
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w 
‘ 
ia 
6 
<= 
a 
w 
= 
Oo 
- 
Re 
t 
Y 
i 
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UNIBUS MAP REGISTER DEFINITIONS 
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UNIBUS MAP REGISTER DEFINITIONS SEQ 0014 


MAPH1=MAPHO1 
MAPL 2=MAPLO2 
mney | 
MAPL 0 
MAPH3=MAPHO3 
MAPL.4=MAPL04 
MAPH4 =MAPHOS 
MAPL5S=MAPLO5 
MAPHS=MAPHO5S 
MAPL6=MAPL 06 


MAPH6=MAPHO6 
MAPL 7=MAPLO7 
MAPH7=MAPHO7 
-SBTTL TRAP CATCHER 


> *ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘' -+2,HALT"’ 
*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
#LOCATION, O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 3;SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 7sSOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 

JMP a4BE 


GIN ;; JUMP TO STARTING ADDRESS OF PROGRAM 
STACK1=500 


SSAVPC=. 

.=30 

SERROR 

340 

-=$SSAVPC 

-SBTTL ACT11 HOOKS 

5 RRERERE RARER AERA EEE EEE EREE ERE RAE REAR RE EERE REE EE 


SHOOKS REQUIRED BY ACT11 
$SVPC=. sSAVE PC 


331)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
330) set LOC. gee TO ZERO 
STORE P 


.=1100 ee 

“SBTTL APT PARAMETER BLOCK 

J J RRA REEEREREREREEREREREEREEREEEEEERREREEREREEEEEKE 

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

ie meen nace temaeedt aaepeeaenn Cents <coms eee te tee 
SAVE CURRENT LOCATION 

{SET POWER FAIL TO POINT TO START OF PROGRAM 


ae OR T ST 
:sPOINT TO APT nyt ADDRESS PNTR. 
7:POINT TO APT HEADER BLOCK 
=. : TRESET LOCATION COUNTER 
g J RRR EEREREEEREEEEEREREEEREEREREEEEEEREEEEKEREKERERREREREEEK 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
j INTERFACE SPEC. 


$HIBTS: 0 :: 8 BIT MAILBOX ADDR. 
SHBADR: SMAIL : SADDRESS X (BITS 0-15) 
SPASTM: 5 : | RUN 1ST PASS ON 1 UNIT (QUICK VERIFY) 
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APT PARAMETER BLOCK SEQ 0015 


SUNITM: .WORD 0 DITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
000016 . WORD SETEND-SHAIL/2 33LENGTH MAILBOX~E TABLE (WORDS) 
‘peobe: APT MAILBOX=E TABLE 


{RRR REREEEE EERE EERE RERREREREEREERERREEREEREEERRERRREEREE 


;;APT MAILBOX 


888sssesssss 


33 IRONMENT MODE BITS 

32;APT SWITCH REGISTER 

7;USER SWITCHES 

3;CPU TYPE,OPTIONS 

BITS 15=-11=CPU TYPE 
11/04=01, 11/05=02,11/20=03,11/40=04,11/45=05 
1/70=06 ,PDQ=07,0=10 


1 = 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
: HIGH ADDRESS ,.M.S. BYTE 
oe e PE kai 


MEM.TYPE BYTE <= (HIGH BYTE) 
900 NSEC CORE=001 
300 NSE 


500 oh 
AMADR1 ;;HIGH ADDRESS ,BLKA1 
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘TYPE’* ABOVE 


8 
VESARENSRRVSSEE 


gg 


8s 
8 8 


IT 
-SBTTL APT COMMUNICATIONS ROUTINE 
+ RRR ERE REE ERE A ERA RARRRRAREREEREE EERE ERE REET 
MOVB #1,$FFLG 73TO REPORT FATAL ERROR 
MOVB Sieur * 33TO TYPE A MESSAGE 


$A 
#1,$FFLG 3:TO ONLY REPORT FATAL ERROR 


RO,~(SP) 33PUSH RO ON STACK 

R1,-(SP) 33PUSH R1_ON STACK 

tee 44 > TYPE A MESSAGE? 
177720 #APTENV , SENV : OPERATING UNDER APT? 


BNE 
177711 #APTSPOOL ,SENVM ;;SHOULD SPOOL MESSAGES? 
BEQ $ 33 T: BR 


a4(SP) RO 
000004 D 33 4(SP) 
: SMSGTYPE 


vw 
o 


— 


— a os SS) 


RARER 
-—-Oo0oO — 
o--— 


ee ee ce ee ed eed eed eed 
—_ 
Sx8s2 
I> 
BRE 


S8BSsssssss 
NoRRES 
8 


SS8u 
RN=Va 
FSR 


38 


ETURN ADDR 
z:SEE IF BONE W/ LAST XMISSION? 
- i31F NOT: WAIT 

RO, SMSGAD ‘PUT ADDR IN MAILBOX 

(RO)+ >:FIND END OF MESSAGE 


=o 
o=— 
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T COMMUNICATIONS ROUTINE 


1422 
1424 


001376 
166700 


010067 
012767 
000413 
017667 
062766 
016746 
004767 


105767 


177646 


177642 
000004 


177574 
177546 


177777 


D2 
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177616 
000016 
000004 


177540 
000004 


2$ 

$MSGAD ,RO 3;SUB START OF MESSAGE 

RO 2 2GET MESSAGE LNGTH IN WORDS 
RO, $MSGLGT PUT LENGTH IN MAILBOX 

#4, SMSGTYPE 7: TELL APT TO TAKE MSG. 


33PUT MSG ADDR IN JSR LINKAGE 


ADDRESS 
73PUSH 199776 ON STACK 
::CALL TYPE MACRO 


SFFLG $4 REPORT FATAL ERROR? 
12$ 331F NOT: 

SENV 3 RUNNING UNDER APT? 

12$ F NOT: BR 

SMSGTYPE FINISHED LAST MESSAGE? 

11$ 331F NOT: WAIT 
@4(SP),SFATAL ;;GET ERROR # 

#2,4(SP) ADDR. 


: BUMP RETURN 
z:TELL APT TO TAKE ERROR 
‘CLEAR FATAL FLAG 


(SP) +-RO 3 POP STACK INTO RO 
PC URN 


SMFLG: 0 :IMESSG. FLAG 
$LFLS: *:LOG FLAG 
SFFLG: = FATAL FLAG 


EVEN 
APTSIZE= 300 
APTE 


APTSPOOL=100 
APTCSUP=040 


PFAIL: .WORD 0 
xYZ: . 
SWR=177570 
DISPLAY=SWR 
LRTI: RTI 


BEGIN: 
.SBTTL INITIALIZE THE COMMON TAGS 

MOV WSTACK SP 3:SETUP THE STACK POINTER 
Z INITIALIZE A FEW VECTOR 

MOV as yr RAPVEC ; TRAP VECTOR FOR TRAP CALLS 

MOV #340, BA TRAPVEC ED: sLEvE 

CLR $PASS :: CLEAR ne PASS COUNT 

MOV SENDCT, SEOPCT ETUP END-~OF PROGRAM COUNTER 
z:SI1ZE FOR A HARDWARE SWITCH gecisien. IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘%-1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 

MOV @FERRVEC,-(SP) ::SAVE ERROR VECTOR 

OAS  AERRVEC 


#0S 
*DDISP DISPLAY [AND A HARDWARE DI 
#1, aSwR + TRY TO REFERENCE HARDWARE 


SEQ 0016 
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INITIALIZE THE COMMON TAGS SEQ 0017 
001512 001012 BNE 66$ ; ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
33 THE HARDWARE SWR IS NOT = -1 
001514 000403 BR 65$ ‘BRANCH IF NO TIMEOUT 
001516 012716 001524 64$: MOV #65$, (SP) t:SET UP FOR TRAP RETURN 
001522 000002 RTI 
001524 012767 000176 176036 65$: MOV ASWREG, SWR ::POINT TO SOFTWARE SWR 
001532 012767 000174 176030 - MOV #DISPREG,DISPLAY™ 
001540 012637 000004 66$: MOV (SP)+,aMERRVEC ;:RES TORE ERROR VECTOR 
001544 005067 177352 CLR $PASS +:CLEAR PASS COUNT 
001550 132767 000200 177357 BITB #APTSIZE,SENVM :iTEST USER SIZE UNDER APT 
001556 001403 BEQ 67$ TYES,USE NON-APT SWITCH 
001360 012767 001136 176002 a. MOV ASSWREG, SWR tZNO,USE APT SWITCH REGISTER 
347 001566 012777 004654 003300 MOV #POWDWN,@DVEC ;SET UP POWER DOWN VECTOR 
348 001574 012737 004554 000114 MOV #PARERR.@#CACHVEC ;SET UP PARITY ERROR VECTOR 
349 001602 012737 000001 004556 MOV #1, a#PARFLG SINITIALIZE THE MULTI PARITY ERROR INDICATOR 
351 :DETERMINE THE SIZE OF MEMORY IN SYSTEM USING SYSMAC SIZE 
33¢ ‘ROUT INE 
354 001610 005000 CLR RO :MAKE MSB'S = 0 
355 001612 052767 000200 003430 BIS #B1T07,$KT11 = TURN ON MEMORY MANAGMENT 
356 001620 004767 003366 JSR PC, $SIZE *GET PAR VALUE FOR LAST WORD 
357 001624 062767 000037 003664 ADD #37, $LSTBK ‘FINE LAST ADDRESS OF MEMORY BANK 
358 001632 016701 003660 MOV $LSTBK,R1 [CHECK LAST BANK WITH R17 
359 001636 005201 INC R1 ‘SIZE MEMORY 
001640 071027 000200 DIV #200,RO [FORM THE BLOCK NUMBER OF 
361 001644 005300 DEC RO * THE LAST ADDRESS AND 
362 001646 010067 003232 MOV RO,LIMIT ‘SAVE IT. 
363 001652 005200 INC RO [MULT BY 4 
364 001654 006300 ASL RO 
365 001656 006300 ASL RO 
369 
368 : THIS ROUTINE SIZE FOR PFAIL HARDWARE,TO AUTOMATIC POWER FAIL THE SYSTEM 
369 001660 012767 177740 177530 MOV #177740,PFAIL ;SETUP PFAIL ADDRESS 
370 001666 012767 001710 176110 MOV #3$,4 ‘SET PC 
371 001674 012767 000340 176104 MOV #340,6 [SET PSwW 
372 001702 005777 177510 TST aPFAIL SREAD PFAIL 
373 001706 000412 BR 4$ [POWER FAIL HARDWARE IS IN SYSTEM 
374 001710 012767 000006 176066 3S: MOV 46.4 STRAP RETURN 
375 001716 005067 176064 CLR b 
376 001722 005726 TST (SP) + :SETUP STACK PC 
377 001724 005726 TST (SP)+ ; SETUP STACK PSW 
378 001726 012767 001420 177462 = MOV #XYZ,PFAIL [SET UP DUMMY ADDRESS 
380 001734 012767 000006 176042 MOV #64 sRESTORE TRAP VEC 
381 001742 005067 176040 CLR 6 
383 y IDENTIFY THE PROGRAM AND TYPE INSTRUCTIONS 
385 001746 023767 000042 002244 CMP a#42, SENDAD 
386 001754 001547 BEQ PRETST 
387 001756 104401 TY 
388 001760 010005 TITLE 
389 001762 104401 TY 
390 001764 010042 BOOT 
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391 001766 
001 

392 001772 
001776 


002032 
393 002032 
394 002040 
395 002042 
002046 
2132 
396 002132 
397 002134 
002134 
002140 
002206 
398 002206 
002212 
002264 

399 
400 002264 
002264 
002270 


002274 
401 002274 
402 


TAGS 


002000 


177360 
002050 


F 
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172240 


172246 


177030 


MOV RO,-(SP) : SAVE RO FOR TYPEOUT 

TYPDS 70 TYPE=—DECIMAL ASCII WITH SIGN 
TYPE ~,69$ TYPE ASCIZ § 

BR 68$ “GET OVER tHe ASCIZ 

,ASCIZ *=-K WORDS OF neniig EXIST 


PFAIL ,#XYZ 31S AUTOMATIC POWER FAIL 

APF ;BRANCH IF YES 

os IZ 

<CRLF><LF>* MANUAL Y INTERRUPT THE POWER AFTER EACH TEST # * 
FT 


,65$ 4h tang ASCIZ STRING 
64$ GET OVER THE ASCIZ 
<CRLF><LF>* NO MANUAL INTERVENTION REQUIRED* 


.67$ TYPE ASCIZ STRING 
66$ SIGET OVER THE ASCIZ 
<CRLF><LF>* AUTO POWER FAIL TEST HARDWARE EXIST* 


-65$ 7 TYPE ASCIZ STRING 
BR 64$ 3sGET OVER THE ASCIZ 
TS aa eASCIZ <CRLF> 


PRETST: MOV #1, $TESTN 
;THIS ROUTINE E Is FOR GHECKING 2MS TIMING USING SOB OUT OF SIPARS 
: $08 ONE WORE MICRO STEP THROUGH EQUAL 1.4US 
£1024 MUL BY 1.4US EQUAL 1.43MS MIN TIME CHECKED FOR ILLUP, ILLDWN 
MOV #12700,a#SIPARO ;:LOAD PARO & 1 WITH MOV #1777,R0 
Wier? a#SIPAR1 
001,a#SIPAR2 ;LOAD PAR2 WITH SOB RO,. 
woe. @ASIPAR3  :LOAD PAR3 WITH RTS PC 


DDS ESS IOSO IIIS ISIS SOIIIIE OO IIISIIIISD ISO Ib 


s*TEST 1 SIMPLE DOWN/UP TEST (KERNAL) 


FL RARER EERE EEE EEEEKEEREEREEEKEKEEEEKREEKKK EK 


TST1: 
TYPE ,65$ 72 TYPE ASCIZ STRING 
BR 64$ 7 GET OVER THE ASCIZ 
3765$: .ASCIZ *1 * 


64$: 
TYPE , SENULL 
CLR a4Ps ;SET KERNAL MODE 
#2$,R3 SET POWER UP RETURN 
#1, aPFAIL SET UP by START POWER FAIL 
sWAIT FOR POWER FAIL 
;GET SP 
SCKECK SP 
SSKIP IF OK 


SP RO 
#STACK~4 ,RO 


#1074 ,EXP.SP1 
RO,REC.SP1 
#STACK1, SP SETUP RESERVED STACK POINTER 


:FOR ERROR PRINTOUT 


SEQ 0018 
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11 SIMPLE DOWN/UP TEST (KERNAL) 


002416 104000 


002370 
005254 
000500 


+9000 177570 


2 
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ERROR 


EXP.SP1 


STACK, SP 
@ASTACK=4 ,RO 
#2$,R0 


4 

#2$ ,EXP.ADD 
RO,REC.ADD 
#STACK1,SP 


@ASTACK=2,RO 
#0,RO0 


#STACK1,SP 


EXP.PSW 
oo 


HALT 
BIT #SW14 ,QASWR 
BNE TST1 


;ERROR 


:SP NOT STACK=4 
“PRINT EXPECTED STACK POINTER 
‘PRINT RECEIVED STACK POINTER 


sRESET SP 

GET RETURN ADDRESS 
; CHECK ADDRESS 
:SKIP IF OK 


ate RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 


ERROR 


ZADDRESS ON STACK IS WRONG 
“PRINT EXPECTED ADDRESS 
[PRINT RECEIVED ADDRESS 


IF 


;GET OLD PS 
ZCHECK OLD PS 
;SKIP OK 


= SETUP RESERVED STACK POINTER 
FOR ERROR PRINTOUT 


2 ERROR 


:0LD PS 1S WRONG 
“PRINT EXPECTED PS 
SPRINT RECEIVED PS 


;LOOP ON TEST? 
;LOOP TO TST1 


SEQ 0019 
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71 SIMPLE DOWN/UP TEST (KERNAL) 


ITEST ROUTINE TO CHCCK RE=START CAPABILITY 
‘USING THE BR. INSTRUCTION 
rea SOPERATOR MUST SET HALT SWITCH TO ENABLE POSITION 
459 002550 ; INC STESTN 
460 J FARRAR RRA RREREREREREEEEE EEE REE EEEREREREEEEEREEREEEEREEEKEKRE KE 
S*TEST 2 POWER FAIL WITH BR. INSTRUCTION 
FFARR EERE EERE EERE EE EEE RETR EREREREEEREEEKEEEEREEEREREKEREEREEREH 
002554 TST2 
002554 TYPE ,65$ zz TYPE ASCIZ STRING 
002560 0004 BR $ *:GET OVER THE ASCIZ 
3765$: .ASCIZ *2 * 


64$: 
—* SENULL 
#STACK,SP ;SET UP STACK 
175172 #357, PS ;SET UP CONDITION CODES 
#2$,R3 ;SET POWER UP RET 
176600 #1,aPFAIL SET UP TO a. POWER FAIL 
: BR ‘ ‘WAIT FOR POWER FAIL 
SP,RO GET SP 
#STACK,SP sSET STACK 
#STACK=-4,RO :CHECK STACK POINTER 
$ sSKIP IF OK 
001074 #1074 ,EXP.SP1 
005072 RO,REC.SP1 
472 002646 000500 #STACK1,SP = SETUP RESERVED STACK POINTER 
7FOR ERROR PRINTOUT 


ERROR 

‘STACK POINTER 
SPRINT RECEIVED SP 
‘PRINT EXPECTED SP 


@4#STACK-2,RO :GET OLD PS 
#341,R0 :CHECK OLD PS 

4$ SKIP IF OK 

#341 ,EXP.PSW 

482 002704 RO,REC.PSwW 

483 002710 000500 #STACK1,SP aE e ~t yay A hy POINTER 


OR ERROR PR 
002714 


484 OLD PS_IS_ WRONG 

485 002716 , PRINT EXPECTED OLD PS 
486 002720 , :PRINT RECEIVED OLD PS 
487 002722 000000 0 

488 002724 
489 002726 


001074 : @#STACK~4 ,,RO GET RETURN ADDRESS 
MP #1$,RO 


002616 
491 002736 00 5$ :SKIP IF OK 
492 002740 012767 002616 004764 #1$,EXP.ADD 
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T2 POWER FAIL WITH BR. INSTRUCTION 


493 002746 010067 004762 MOV 
494 002752 012706 000500 MOV 


104000 ERROR 


RO,REC.ADD 
#STACK1,SP : SETUP RESERVED D STACK POINTER 


;FOR ERROR PRINT 


ZADDRESS ON STACK IS WRONG 
EXP.ADD SPRINT EXPECTED ADDRESS 
REC.ADD ;PRINT RECEIVE ADDRESS 


000000 0 

000000 , HALT 

032737 177570 BIT #SW14 ,a#SWR ;LOOP ON TEST? 
001266 BNE TST2 SLOOP TO TST2 


;TEST ROUTINE TO CHECK RESTART CAPABILITY 
SUSING THE EMULATOR TRAP FOR A WAIT 
; OPERATOR MUST SET HALT SWITCH TO ENABLE POSITION 


176114 INC STESTN 
ZARA SISIISIOI OIA IDIOIIIIIIOIOIIOIOIIOIOIDIOI IOS TOIIOIOII IOI TT TOT TOIT TEI IE 
s*TEST 3 POWER FAIL WITH EMT TRAP 


SEEKER EREEEREEKEKEKEEKEKKKEKEEKEEKEEEEREEEEREKRERKEKKKKEKKKE 


1813: 
TYPE -65$ zz TYPE ASCIZ STRING 
BR 64$ ::GET OVER THE ASCIZ 
i7g°* -ASCIZ *3 * 


TYPE , SENULL 
CLR aAPS SET KERNAL MODE 
STACK, SP SET UP STACK 
#2$,R3 SET POWER UP RETURN 
AMLRTI ,EMTVEC [SET UP RETURN toe EMT TRAP VECTOR 
#5 .EMTVEC+2 7SET PSW ON POWER FAIL 

1,@PFAIL :SET UP TO START POWER FAIL 

zsWAIT FOR POWER FAIL 


$ 


SEEREERE 


SHH SS Ss ss ss 
RNERSN 


SUMS 
WN —“SOVOnNOUSWA— 
WA 


S88888sssss 


w 
anh aah and end en 


SP,RO 
WSTACK,SP 
#SER 
#STACK~4,RO 
#STACK-10,RO 
#1070, EXP.SP1 


RO,REC.SP1 
#STACK1, SP 


EXP.SP1 
et 


:GET SP 


RESET EMT VECTOR 
WAS STACK PUSHED ONLY TWICE 


zWAS STACK PUSHED 4 TIMES 


7 tye STACK POINTER 
OR ERROR PRINTOUT 


ERROR 
WAS STACK PUSHED 4 TIMES 

SPRINT EXPECTED STACK POINTER 
SPRINT RECEIVED STACK POINTER 


SEQ 0021 
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T3 POWER FAIL WITH EMT TRAP 


4$: 


536 003170 
003174 


6$: 
177570 BIT 
BNE 


PSW 
#STACK1,SP 


J 2 
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@#STACK-10,RO 
#LRTI,RO 


DOES STACK CONTAIN CORRECT INFO 
#LRTI,EXP.ADD 
RO ADD 


#STACK1,SP + SETUP RESERVED STACK POINTER 


FOR ERROR PRINTOUT 


;1S STACK PUSHED’ “MORE THAN 2 OR LESS THAN 4 
PRINT EXPECTED ADDRESS 
SPRINT RECEIVED ADDRESS 


a#STACK~6,RO 
#9 .RO :DOES STACK CONTAIN CORRECT INFO 
#5,EXP.PSW 
: SETUP RESERVED STACK POINTER 
OR ERROR PRINTOUT 
s ERROR 
SSTACK CONTIAN WRONG PSW 


PRINT EXPECTED PSW 
PRINT RECEIVED PSwW 


LOOP ON TEST? 


#SW14 ,QASWR 
TST3 ;LOOP TO TST3 


INC STESTN 


FERRER EEEEREREEEREEEEEEEREKREAEEEREEKEEEERERREEKEEEEEKE 


zATEST 4 


POWER FAIL WITH ODD ADDRESS 


SEEKER EEEEEREEAEKEEAEEKEEKEKEKAEEKEAEAEREERERERERRERKEEK 


TST4: 
TYPE 
BR 
3365$: .ASCIZ 
64$: 


TYPE , SENULL 
CLR 


564 0033532 
565 003336 


,65$ 72 TYPE ASCIZ STRING 
- ::GET OVER THE ASCIZ 
* t 


:SET KERNAL MODE . 

‘SET TRAP VECTOR | 

:SET RETURN ADDRESS FOR POWER FAIL 
T TO START POWER FAIL 

:RESET shat 


> CAUSE oD. ADDRESS 1 
alt RESERVED STACK POINTER 
:FOR ERROR PRINTOUT 


ayPs 
438. QFERRVEC 
#1, aPFAIL 
ASTACK, SP 


av 
#STACK1,SP 


SEQ 0022 
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Th POWER FAIL WITH ODD ADDRESS SEQ 0023 


ERROR 
ERROR 


HALT :0DD ADDRESS TRAP FAILED TO OCCUR 
MOV #6, AMERRVEC TRESET 4 
BIT #SW14,a#SWR SLOOP ON TEST? 
BNE TST4 SLOOP TO TST4 


INC STESTN 


REAR EKEEEEEEEREEEREREKEEREREKEEEREKEEEEEEEREEEREKEEEKEKKK 


TeTEST 5 POWER FAIL WITH TIME OUT (KERNAL) 
J FRR ARERR ARERR EEE EER EEEREEEEEREEEREEEEREEREEEEEREEEREEEKEEKE 
TSTS: 
TYPE ,65$ zz TYPE ASCIZ STRING 
BR *:GET OVER THE ASCIZ 
::65$: .ASCIZ *5 * 


64$: 
TYPE , SENULL 


000004 MOV #3$ ,AHERRVEC #SET TRAP VECTOR 
#1$,R3 SET UP RETURN ADDRESS FOR POWER FAIL 
175770 #1, aPFAIL SET UP TO START POWER FAIL 
#STACK,SP :SET STACK 
a¥PS [SET KERNAL MODE 
RO,a4160000 3CAUSE A TIMEOUT 
#STACK1,SP + SETUP ty POINTER 


FOR ERROR PR 


i TIME oUF FAILED TO OCCUR 
#STACK, SP 7SET STA 
000004 #6, aMERRVEC SRESET a 
177570 #SW14,aaSWR SLOOP ON TEST? 

TSTS “LOOP TO TSTS 
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TS POWER FAIL WITH TIME OUT (KERNAL) 4 SEQ 0024 


rH 003474 005267 175420 INC STESTN 


SERRA REE EREREERER EERE EEEEEREREREEREREERERERKREE 


s*TEST 6 POWER FAIL IN THE STACK OVERFLOW (KERNAL) 


FERRARA EERE AREER EE EERE EREREEREEREEEEREREREERERERREE 


TST6: 
zz TYPE ASCIZ STRING 
BR *:C€°T OVER THE ASCIZ 
23658: . *6 * 
64$: 
TYPE , SENULL 
CLR aePs 7SET KERNAL MODE 
FLAG *CLEAR THE FLAG 
W#2$,QWERRVEC  :SET SICK TPAP ADDRESS 
#400, SP ‘SET STACK ‘TO YELLOW ZONE 
#1$,R3 :SET RETURN ADDRESS FOR POWER FAIL 
592 003544 MOV #1, aPFAIL SET UP TO START POWER FAIL 
593 003552 00000 :WAIT FoR THE POWER FAIL 
594 003554 #STACK1,SP ;SETUP RESERVED STACK POINTER 
*FOR ERROR PRINTOUT 


:SKIP_SP CHECK 

RESET 4 

SET RETURN 

[GO TO THE POWER FAIL ROUTINE 


177570 #SW14 ,AMSWR :LOOP ON TEST? 
BNE TST6 *LOOP TO TST6 


INC STESTN 


J FAA REE REAR EEEEEEEEREREEEEREEEEKEEEEEREEEREEEREREREEKE 


s*TEST 7 POWER FAIL WITH RESETS 


SRERAEAAAAAAERAAEKEEAAEEEEEEEEERAEEEEAEKEEREEEEKEKEEEEEEREEEEREEEKEEKEKE 


1817: 
TYPE ,65$ zz TYPE ASCIZ STRING 
BR 3zGET OVER THE ASCIZ 
3765S: .ASCIZ *7 * 


64$: 
TYPE , SENULL 
CLR aAPs :SET KERNAL MODE 
#1$,R3 ;SET RETURN ADDRESS 
#STACK,SP SRESET STACK 
#1, aPFAIL zSET UP TO START POWER FAIL 
meer 


613 003666 000774 BR 3$ : 
614 003670 #STACK1,SP ; SETUP ~ Py yi- STACK POINTER 
003674 sFOR ERROR PRINTOUT 
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17 POWER FAIL WITH RESETS 


a ;RESET LOOP FAILED 
MOV #STACK,SP :RESFT STACK 

‘LOG ON TEST? 
‘LOOP TO TST7 


615 
616 003676 000000 
17 003700 012706 


6 001100 1$: 
618 003704 032737 040000 177570 BIT #SW14 ,AASWR 
712 001342 BNE TST7 


003 


SEQ 0025 
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17 POWER FAIL WITH RESETS 


INC STESTN 


SAREE EERE REA AREER EEE EERE EEA EREREREEREREREEEEEEREREE 


S*TEST 10 MEMORY MANAGEMENT ABORT TEST 


FERRARA AREER EREEEEEREEREREEEREREEREEEEEEREEEEEEEERRERRERER 
TST10: 
TYPE ,65$ sz TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 
3765$: .ASCIZ *10 * 


64$: 
TYPE , SENULL 
C KERNAL MODE 


a4PS > SET 
000004 oa eee = . 7SET FOR TIMEOUT 


; D 
000250 MOV #3, aeMmVEC 7 SET ‘ox MANAGEMENT VECTOR 
#1$,R3 [LOAD PF RETURN 
175422 #1 ,@PFAIL ;SET UP TO START POWER FAIL 
aTwrRro ;TURN MEMORY MANAGEMENT ON 


#STACK, SP _ HZAP STACK 
634 004004 a#140000 “* SACCESS VIOLATION 
635 004010 1 MOV #STACK1,SP t 3 Ah RESERVED STACK POINTER 
004014 : ; [FOR ERROR PRINTOUT 


ERROR 
:NO VIOLATION OR TRAP TO 4 


a“MmRod + TURN OF F apt MANAGEMENT 
STACK , SP 


7 ‘ 
;LOOP TO TST10 
STESTN 


J FRA EEREREEEEEEEEEKEERKEREEREREREEEREEEEREAEEEEEEREEKEKE 
S*TEST 11 MEMORY VOLATILITY TEST 
EAE AAEEAEAEAEARAKRARAEEEREREREAEEARAEKEEREREAEAAAKEAEAREEERAREREREKEKE 
$111: NOP 
CLR :SET KERNAL MODE 
4$: JSR ;LOAD ALL MEMORY WITH 52525 
MOV a POWER FAIL ghee ADDRESS 
TYPE 5 [TYPE ASCIZ STRING 
BR $ ::GET OVER THE ASCIZ 
eASCIZ #11 * 


TYPE , SENULL 
2s: JSR PC, CHECK iCHECK FOR THE 52525 
175276 #1 aPFAIL -SET UP TO START | POWER FAIL 
2$ ;LOOP FOR EVER OR POWER FAIL 
#STACK, SP : 


PC, CHECK ; 
640000 177570 #SW14 ,aMSWR ;LOOP ON T 


SEQ 0026 
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11 MEMORY VOLATILITY TEST SEQ 0027 


004140 001344 BNE TST11 ;LOOP TO TST11 
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END OF PASS ROUTINE SEQ 0028 


657 .SBTTL END OF PASS ROUTINE 
3 J RRARARRRRRRERERREREERERERERER EERE ERREEEEREREREREAEEEEEREEEEEER ER 
INCREMENT THE PASS NUMBER ($PASS) 
: s INDICAT E END-OF~PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
PE END PASS AXXXXX"” (WHERE XXXXX IS A DECIMAL NUMBER) 
SIF THERES A MONITOR GO 10 TT 
gale THERE ISN'T JUMP TO FT 


i> 
hore 


NOP 
174752 SPASS +3 INCREMENT THE PASS NUMBER 
100000 174744 #100000, $PASS :DON'T ALLOW A NEG. NUMBER 
‘ies 3; LOOP? 


SDOAGN ssTes 
 eatemaadiacs: 7 RESTORE COUNTER 


SEOPCT “ 
004237 TYPE ENDMG :TYPE "END PASS ‘ 
174720 MOV spas, -(SP) i} SAVE SPASS FOR TYPEOUT 

TYPE==DECIMAL ASCII WITH SIGN 
004234 TYPE , $ENULL +: TYPE A NULL CHARACTER 
000042 $GET42: a#42,RO 7:GET MONITOR ADDRESS 
Q $DOAGN + BRANCH IF NO MONITOR 
+:CLEAR THE WORLD 
SENDAD: JSR PC, (RO) +:GO TO MONITOR 
NOP — ROOM 


tZACT11 
acPC)+ +: RETURN 


sNULL CHARACTER STRING 
“110 PASS #7 


— SS So SS SY YS SS SS 


BOSSE EEE E EERE 
SISSRRSESE 


RS 
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END OF PASS ROUTINE 


-SBTTL LOAD MEMORY WITH DATA PATTERN 
LOAD: JSR SET UP MEMORY MANAGEMENT REGISTERS 
LIAIT oR4 T COUNT 


:GET BANK 
TA,RS :GET THE DATA PATTERN 
000250 #28 -QNMMVEC :SET UP FOR MEMORY MANAGEMENT ABORTS 
‘FORM ADDRESS OF WHERE TO START WRITING THE DATA 
#120000, RO SUSE KIPARS FOR ADDRESSING 
177572 1, a4MMRO : TURN ON MEMORY MANAGEMENT 
: Ra. (RO)+ SWRITE THE DATA 


LAST BANK WRITTEN? 
sBRANCH IF YES 
#120000 ,RO sRESET ny fag oe REGISTER 
172352 . SIZE NEXT 4K BANK 
177572 MO #1, @AMMRO 7CLEAR MEMORY coe gt oe! ERRORS 
; RETURN TO CONTINUE WRITING 
177572 : ; TURN OFF MEMORY MANAGEMENT 
0627 000004 ° 7CLEAN UP THE STACK 
678 004356 P SRETURN TO CALLER 
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CHECK MEMORY et CORRECT DATA PATTERN 


-SBTTL CHECK MEMORY FOR CORRECT DATA PATTERN 


004360 CHECK: PC ,MAP SET UP MEMORY MANAGEMENT REGISTERS 
683 004364 016704 & MO LIMIT ,R4 7GET BANK COUNT 

684 004370 ATA,R :GET DATA PATTERN 

685 004374 004514 000250 : #2S ,a@AMMVEC SET UP FOR MEMORY MANAGEMENT ABORTS 
686 004402 01 #END ,RO ADDRESS OF WHERE DATA PATTERN STARTS 
687 004406 062700 120000 a ZUSE yy ADDRESSING 


688 004412 46 177572 

012001 TREAD THE DATA 
690 004422 :1S IT GOOD? 
691 004424 001775 § ‘BRANCH IF YES 
692 004426 
693 004432 
694 004440 VIR.ADD 
695 004446 @*KIPARS ,PAR. OFF 
69% 004454 010 003246 RS, EXPDAT 
697 004460 R1.RECDAT 
98 004464 012706 000500 


#STACK1,SP + SETUP RESERVED STACK POINTER 
FOR ERROR PRINTOUT 


; ERROR 
:PRINT VIRTUAL ADDRESS 
PRINT PDR OFFSET 


[PRINT EXPECTED DATA 
PRINT RECEIVED DATA 


177776 ‘aaa ys GOOD DATA 


SESS 


ORS 


3$ sBRANCH IF YES 
120000 #120000 ,RO RESET ADDRESSING REGISTER 
000200 172352 . #200,QMKIPARS ;SIZE NEXT 4K 

000001 177572 #1, aAMMRO CLEAR MEMORY MANAGEMENT ERRORS 


> > P, 
MEWN—oO 
SES 


177572 3$: amrrod 
000004 -*, SP 


NNN 
ad od od 
Ww 
Ww 
Nm 


“RETURN FOR CALL 
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HANDLER 


ITY ERROR 


a 
Baas 


EE 


o 
p28 


720 
721 
722 
723 
724 
725 
726 
727 004604 
728 004606 
729 004610 
730 004612 
731 
732 
735 
7% 
736 
738 


737 004636 
00464 
739 004652 


000077 
177740 


177744 


000002 
000002 


177744 
000001 


MACRO M1113 


173146 
010220 


177744 
177704 
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.SBTTL PARITY ERROR HANDLER 


PARERR: DEC 


PARFLG: .WORD 
BGE 


1$: 
2$: 


3$: 
4$: 


- FIRST TIME IN? 


2s ;BRANCH IF YES 
;NO=-ANOTHER ng Sh Pa OCCURRED WHILE 


1$ : PROCESSING 1 § FIR 

#77 ,HIADRS :MSB'S OF PARITY ERROR ADDRESS=0? 
;BRANCH IF NO 

@FLOADRS,#END  ;LSB'S ABOVE THE PROGRAM? 

4$ sBRANCH IF YES 

sPARITY ERROR IS IN THE PROGRAM 


DATA PARITY ERROR OCCURRED 
OCCUR? 


3$ 
—— 
#2,R0 :BACKUP BY ONE WORD 
#81T01,R5 

R5.RO ; 

R3,(RO)+ ;REWRITE THE BAD DATA 
@YMEMERR ,@AMEMERR ;CLEAR ERROR INDICA 


TORS 
#1 ,PARFLG ; INITIALIZE PARITY ERROR FLAG 
CONTINUE TESTING 


SEQ 0031 
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PARITY ERROR HANDLER 
-SBTTL POWER FAIL ROUTINE 
177777 000220 POWDWN: MOV #-1,FLAG FIRST INSTRUCTION FLAG 
000214 CLR FLAG > NOW we IT 
005042 000174 #ILLUP ,QUVEC :1F TOO FAST 
000166 (SP) ,ERRAD SET THE ERROR ADDRESS 
#400,SP : YELLOW OR RED? 


#STACK, SP “SET EMERGENCY STACK 
RO,-(6) ‘PUT 


3 THE 
REGISTERS 
70N 
STACK 
SP, SAV6 SAVE THE gs POINTER 
PC ,@A#SIPARO :SET TIME FACTOR 
000124 #POWUP , @UVEC ;RESET THE UP VECTOR 
[WAIT FOR POWER DOWN 
000116 : #ILLDWN,@DVEC ;SET TOO FAST DOWN VECTOR 
SAV6, SP sRESET 
172240 sLOAD PARO & 1 WITH MOV #1 777,RO 


;LOAD PAR2 WITH SOB RO,. 
172246 07 LOAD PAR3 WITH RTS PC 


000207 
172240 SET TIME FACTOR 
TAKE 


:REGISTERS 
FROM 
* STACK 
;RESET THE DOWN VEC 
[JUMP INDIRECT TO RS 
:POWER UP BEFORE POWER DOWN COMPLETE 


173124 
POWER DOWN BEFORE UP COMPLETE 


173112 


;RETURN ADDRESS FROM POWER FAIL 
[UP ADDRESS PAIR 

DOWN 

1 INSTRUCTION DOWN FLAG 


:TOP_OF MEMORY 
[WHAT IS TO BE WRITTEN INTO MEMORY 
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SETUP MEMORY MANAGMENT REGISTERS SEQ 0033 


-SBTTL SETUP MEMORY MANAGMENT REGISTERS 
MAP : #0 ,a#K IPARO 3 SETUP tm * FOR 1ST 4K 


g 


—— 
ao 


#77406 afk 1PDRO 26k R/W, EXPAND UP 
BARS FOR 1ST 4k 


Mw 


3 SY YY YS 
SIVFESVR 


SET UP 


AANA 
NNN 


att R6 E 
#177600 aaKIPAR7” SET iP PAR’ FOR 1/0 PAGE 
#77606 ,aa#K 1PDR7 24k 
WBI1T04;aeMMR3S SET 1 “Eon. SCBIT MAPPING 
#MMERR . aAMMVEC ‘SFr UP MEMORY MANAGEMENT VECTOR 
‘RETURN FROM CALL 
MMERR: HALT “MEMORY MANAGEMENT ERROR 


BR MMERR 
-SBTTL ROUTINE TO SIZE MEMORY 
-SBTTL ROUTINE TO SIZE MEMORY 


SURE ERE REE REE EEE EERE EERE REE EERE EERE REE REE EEE 
3*CALL: 
;* JSR PC,$SIZE 


:* R 
; *SLSTAD WILL CONTAIN: 
: WITH KT11 OPTION =~ LAST VIRTUAL ADDRESS OF THE LAST BANK 
3* WITHOUT KT11 OPTION =~ LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 
; *SLSTBK WILL CONTAIN THE LAST ae AS A SAF 
;*$KT11 IS THE MEMORY MANAGEMENT KEY 


ttc tet tet et 
leleleleleleleojo) 
db ad ad aod a ad a od 
SAAS 
N 
ee ot 


SSeee 

SwWr-o 
sssgasssssess 
ae 
gages 
SESS 


;3SAVE RO ON THE STACK 

VE R1 ON THE STACK 

Z3SAVE R2 ON THE STACK 

VE R3_ON THE STACK 
RRVEC,=(SP) :SAVE PRESENT ERROR VECTOR PS & PC 
@#ERRVEC+2,-(SP) 


SPR : SAVE THE STACK POINTER 
72SET THE E_ERRVEC PS TO THE PRESENT P 
M PUSH OLD PSwW AND PC ON STACK 
(SP) +, a#ERRVEC+2 “SAVE THE PSW IN a#ERRVEC+2 
#3776.R1 : ESS 
(PC)+ MEMOR 
ISET TO USE MEMORY MANAGEMENT 
BPL $COR [BR IF NO 
000004 MOV PENTHEX, @#ERRVEC “3gSET FOR TIMEOUT 
a#sSRO :kKT11 ARE YOU THE 
177754 #100000, $kT11 + TYES--SET KT11 KEY 
-(SP :;INITIALIZE FOR PAR’ LOADING 
WIPARO, R2 SS _OF FIRST 'P 


GHT 'PAR.'S'' AND EIGHT ‘PDR.'S'’ 
177740 1$: MOV #77406, -40(R2) ::PDR = 4K, UP, READ/WRITE 
(SP), (R2)+ : rte 


(SP) 
Feo, -(R2) up 
ety SWERRVEC S CATCH TIMEOUT IF NO SR3 
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ROUTINE TO SIZE MEMORY 


000020 172516 #20, aMSR3 A rr 22 BIT MODE 

BR THIS PDP-11 HAS A SR3 REGISTER 
(SP)+,(SP)+ 33 CLEAN OFF THE STACK=-NO SR3 
a¥#SR ON MEMORY MANAGEMENT 


; TURN 
#SKTOUT ,A#ERRVEC™ “ESET FOR TIME OUT 
43776 ON X=ME 


177572 


000040 #40, (R2) 
172356 ark IPAR7, (R2) 


: MOV (R2) .R2 

177572 cL aFSRO “TURN OFF MEMORY MANAGEMENT 
100000 177630 : #100000, $kT11 vom NON-EXISTENT 

005450 000004 $CORE: MOV WSCROUT ,AMERRVEC ;;SET FOR TIMEOUT 


R2 BANK 
#4000,R1 :T INCREMENT BY 1k 
#40,R2 31K S STEP 


(R15 37 TRAP ON TIME OUT 
77776, R1 sel 

1$ :NO--TRY AGAIN 
#4000,R1 


$CROUT: 
$SIZEX: #40,R2 ; : DROP BACK 

RO, SP RESTORE THE STACK 
(SP)+, + -WERRVEC #2" t;RESTORE ERROR VECTOR 


7-LAST ADDRESS 
;;LAST BANK 


7 RESTORE R3 
7RESTORE R2 
RESTORE R1 
3 RESTORE RO 


3; CONTAINS THE LAST ADDRESS 
:: CONTAINS THE LAST BANK 
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818 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
J RRRAAREREREREREREREEEEEREREREEEEKEREEREEREKEKEEEEEEEREEEREEREEEEERER 
TRTHIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 6-DIGIT 
[*OCTAL (ASCII) NUMBER AND TYPE IT. 
:*STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
** 
i* MOV. —s— NUM, =( SP) ; [NUMBER TO BE TYPED 
i TYPOS Z3CALL FOR TYPEOU 
; BYTE N :N=T TO 8 FOR NUMBER OF DIGITS TO TYPE 


-BYTE ™M 
321=TYPE LEADING ZEROS 
;0=SUPPRESS LEADING ZEROS 


 eSTYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
z ¥$T¥POS OR $TYPOC 


MOV NUM, (SP) NUMBER TO BE TYPED 
TYPON SICAL FOR TYPEOUT 


is 
ee HERE FOR TYPEOUT OF A 16 BIT NUMBER 
** 3 


NUM, (SP) ; ;NUMBER TO BE TYPED 
3* T CALL FOR TYPEOUT 
STYPOS: MOV a(SP) ,-(SP) PICKUP THE MODE 
1(SP) , SOF ILL + LOAD ee FILL SWITCH 
(SP) 1 R OF DIGITS TO TYPE 
7 ZADJUST RETURN ADDRESS 


2;SET THE ZERO FILL SWITCH 
7-SET FOR SIX(6) DIGITS 
; SET 3 ITERATION COUNT 


RS 
T THE NUMBER OF DIGITS TO TYPE 


o's IT FOR MAX. ALLOWED 
T FOR USE 


I 
7:GET THE ZERO FILL SWITCH 
::PICKUP_THE INPUT NUMBER 
a THE OUTPUT WORD 
ROTATE MSB INTO *'C’’ 


3:60 
FORM THIS DIGIT 


N 


000076 
177770 


Rae 


SS_ANYMORE 0°S 
DIGIT ASCII 
I NOT ALREADY 





K_ 3 
CKKACAO 11/44 POWER FAIL MACRO M1113 10=DEC-79 10:05 PAGE 17-1 
(ASCII) AND TYPE 


000040 MOVB R3,8$ + SAVE FOR TYPING 
005740 8 3GO TYPE THIS DIGIT 
000032 : ; COUNT BY 1 
ra} 77BR if MORE TO DO 
F DONE 


:7BR 
:FINSURE LAST DIGIT ISN'T A BLANK 
THE LAST DIGIT 


TORE R3 
+ CSP) SISET THE STACK FOR RETURNING 


7 RETURN 
8$: : 7zSTORAGE FOR ASCII DIGIT 


SOCNT: 

SOF ILL: TCH 

SOMODE: .WORD 0 ; sNUMBER DIGITS TO TYPE 

- SBTTL CONVERT BINARY TO DECIMAL’ AND TYPE ROUTINE 

AREAS IOI ISIC EIU IDI IO TOO IOI UR tk i tk ttt 

TRTHIS ROUTINE IS USED TO CHANGE A 16-81T BINARY NUMBER TO A 5-DIGIT 

i *S1GNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
R IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 

+ #BEF ORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

: “REPLACED WITH SPACES. 


3* MOV NUM, =(SP) ;3PUT_THE BINARY NUMBER ON THE STACK 
ivvees TYPDS :2GO TO THE ROUTINE 


RO,-(SP) 


S3 THE CONSTANT 

77FORM THIS BCD DIGIT 

77BR IF DONE 

3: INCREASE THE BCD DIGIT BY 1 


zADD BACK THE CONSTANT 
$I CHECK iF BCD fA Ni 
zFALL THROUGH 


IF 
:3STILL , oe LEADING 0°S? 


: 7:BR IF NO 
177777 MOVB 1(SP),-1(R3) 3: YES==SET THE SIGN 
6$: #'0,R2 MAKE THE BCD DIGIT ASCII 
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052702 000040 7$: #* UR ‘or IT A SPACE _IF NOT ALREADY A DIGIT 
MOVB T_ THIS CHARACTER IN THE OUTPUT BUFFER 
006070 MENTING 


006076 
006100 


a 


177777 =177776 


3 POP STACK INTO RO 
$DBLK TYPE THE R 
3(SP) ,4(SP) TADJUST THE STACK 
(SP) +> (SP) 
;;RETURN TO USER 


SH ss SS ss 2s Ss ns 3s Ss 8 


SSSSSRSS ease SEES ESES 
RERENSRS KEP RNOASRRS 


SDBLK: .BLKW 4 
- SBTTL TYPE ROUTINE 
ert iiiiiiittstiti titi 
7 *ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
7*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*NOTE1: SNULL CONTAINS THE CHARACTER bY BE USED AS THE FILLER CHARACTER. 
i sNOTE?: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
+ *NO SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


> *CALL 

:#1) USING A TRAP INSTRUCTION 
OR TYPE -MESADR 

ie 


7=MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


-* 


** 

$TYPE: STPFLG 2:18 THERE A TERMINAL? 
BPL 1$ FY 

: HALT HERE IF NO TERMINAL 


3$ a 
1$: RO,~(SP) zSAVE RO 
000002 a2(SP) ,RO 33GET ADDRESS OF ASCIZ STRING 
000001 172714 ; #APTENV, SENV ING IN APT MODE 


000100 172705 TY rt atmarmamat ;; SPOOL 
000004 RO,61$ 
172714 PC,SATY3 
61$: - WORD 
000040 172663 62$: #APTCSUP,SENVM ;; CONSOLE SUPPR 
BNE :zYES,SKIP TYPE OUT 
(RO) +,-(SP) 37PUSH CHARACTER TO BE TYPED ONTO STACK 
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TYPE ROUTINE 

006256 ~ 001005 BNE 4$ 

006260 005726 (SP)+ 
(SP)+,RO 
#2, (SP) 
er cr 
#CRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2$ 


PC ,STYPEC 
- SFILLC,(SP)+ 


2s 
$NULL ,- (SP) 
1(SP) 


PC, the 
$SCHAR 
7$ 


BR 
“HORIZONTAL TAB PROCESSOR 
gs: MOVB (SP) 


PC ST ¥PEC 
4 SCHARCNT 
9$ 


(SP) + 

2s 

asTPs 
STYPEC 

3 «4 -a$TPB 


at ye60. *SP) 
#23, (SP5+ 


aSTKS 
3s 
#177660, *SP) 
1, (SP5+ 
2$: #CR,2(SP) 
CLRB SCHARCNT 


BR TYPEX 
1$: CMPB es #LF, (SP) 
BEQ STYPEX 


INCB (PC)+ 
SCHARCNT: WORD 0 
$TYPEX: RTS PC 
$ ° * Ve 364 


77 
77566 


33;BR IF IT ISN'T THE TERMINATOR 

3Z1F TERMINATOR POP IT OFF THE STACK 
7sRESTORE RO 

2 ¢ADJUST RETURN PC 


BRANCH IF <HT> 
; ;BRANCH IF NOT <CRLF> 


sPOP_ <CR><LF> Equiv 
TYPE A CR AND L 


2-CLEAR CHARACTER COUNT 
HARACT 
HARACTER 
OR fly CHARS. ? 
SIGET # OF FILLER CHARS. NEEDED 
:2AND THE NULL CHAR. 
+ sDOES A NULL NEED TO BE TYPED? 
IF PP. POP THE NULL OFF OF STACK 


7:G0 TYPE A NULL 
22D0 NOT COUNT AS A COUNT 


7 REPLACE TAB WITH SPACE 
;;TYPE A SPACE 
; BRANCH IF NOT AT 
TOP 


; S) 

: POP tn OFF STACK 

:2GET NEXT CHARACTE 

sWAIT UNTIL PRINTER IS READY 


LOAD CHAR TO BE TYPED INTO DATA REG. 
SISEE IF KEYBOARD IS TALKING. 
2 ;BRANCH IF IT ISN* er 
CHARACTER ONTO STACK. 
7:B1T CLEAR TOP wth | _— PARITY BIT. 
23 SEE IF THIS IS A 

:BRANCH TO CONTINUE if IT ISN'T. 
WAIT FOR ANOTHER I 
2 ;BRANCH BACK IF NOT READY . 

NEXT CHARACTER ON STACK. 
7:BIT CLEAR TOP w te Y saad PARITY BIT. 
23 SEE A THIS IS A 

H BACK FOR MORE WAIT IF NOT. 
3318 pe Me A CARRIAGE RETURN? 


H IF NO 
::YES“CLEAR CHARACTER COUNT 
zz ee LINE FEED? 


>: COUNT THE CHARACTER 
z: CHARACTER COUNT STORAGE 


7zTTY PRINTER STATUS REG. ADDRESS 
::TTY PRINTER BUFFER REG. ADDRESS 
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TYPE ROUTINE SEQ 0039 
006530 000 $NULL: .BYTE 0 ;:CONTAINS NULL CHARACTER FOR FILLS 
006531 . 002 $FILLS: .BYTE 2 CONTAINS # OF FILLER CHARACTERS REQUIRED 
0065 012 S$FILLC: .BYTE 12 33 INSERT FILL CHARS. AFTER A ‘LINE FEED"’ 
00653 000 STPFLG: .BYTE 0. :' "TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
006534 077 S: ASCII ‘” QUESTION MARK 
006535 015 SCRLF: .ASCII <15> ;7CARRAIGE RETURN 
006536 012 000 SLF: “ASCIZ <12> + SLINEFEED 
821 006540 177560 $TKS: .WORD 177560 
822 006542 177562 $TKB: .WORD 177562 
824 -SBTTL__ TRAP DECODER 
FERRARA REREEREEEREREEEEEEEKEEREEKEEEEEREEERERREREREEREEEEREKKEKEKEK 
S*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
[AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
'*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
**GO TO THAT ROUTINE. 
006544 010046 $TRAP: MOV RO,-(SP) ZSAVE RO 
006 016600 000002 MOV 2(SP) ,RO tIGET TRAP ADDRESS 
006552 005740 TST -(RO) 7 BACKUP BY 2 
006554 111000 MOVB (RO) ,RO +:GET RIGHT BYTE OF TRAP 
006556 006300 ASL RO ::POSITION FOR INDEXING 
006 016000 006600 MOV STRPAD(RO).RO 3 INDEX TO TABLE 
006564 000200 RTS TO 
:THIS IS USE TO HANDLE THE ‘'GETPRI’’ MACRO 
006566 011646 $TRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
006570 016666 000004 000002 MOV 4(SP5 ,2(SP) +:MOVE THE PSW DOWN 
006576 000002 RTI +:RESTORE THE PSW ; 
.SBTTL TRAP TABLE 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
**BY THE ‘'TRAP’’ INSTRUCTION. 
3 ROUT INE 
006600 006566 $TRPAD: .WORD $TRAP2 
006602 006172 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
006604 005544 $TYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
006606 005520 $TYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
006610 005560 $TYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
oa 006612 005746 STYPDS ::CALL=TYPDS  TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
826 
827 
828 
829 
830 
831 
832 
833 
839 ; ERROR PRINT ROUTINE 
837 104000 ERROR=104000 
839 006614 000000 ERRPC: .WORD 0 
841 
842 006616 010067 000026 SERROR: MOV RO,SAVRO :SAVE RO THRU RS 
843 006622 010167 000024 MOV R1.SAVR1 
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TRAP TABLE 


010267 MOV R gre 


a ae MOV (SP),R1 :R1 CONTAINS ADDRESS FLLOWING ERRPC ADDRESS 
MOV _R1.ERRPC :GET ADDRESS OF ERROR MESSAGE :ERRPC 
.65$ ri: TYPE ASCIZ STRING 
64$ -GET OVER THE ASCIZ 
<CRLF><CRLF>/TESTNO = ERRPC/ 
:R1 POINTS TO NEXT ARGUEMENT 
sADDRESS OF START OF PRINT TABLE LIST 
SADDRESS OF STERT OF TITLES 
-E ARGUEMENTS? 


(R3)+ ITLES 
(R1),(R2)+ SEARCH PRINT TABLE LIST FOR TITLE 
2s 7NO; CHECK NEXT LOCATION IN LIST 


PC ,a-(R3) FOUND IT; GO PRINT TITLE 
BR 3S CODE ERROR ROUTINE 


006764 .65$ zr TYPE ASCIZ STRING 
64$ t:GET OVER THE ASCIZ 
<CRLF> 


016746 172126 MOV STESTN,~(SP) 23 SAVE STESTN FOR TYPEOUT 
104403 YPE=-OCTAL ASCII 


000 
104401 007004 YPE ,67$ 
66$ 


000402 
i 


016746 177600 “MOV ERRPC ,-(SP) ::SAVE ERRPC FOR TYPEOUT 
104402 1:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
104401 004234 TYPE ,$ENULL 


orreet ~T oy a R1 3R1 CONTAINS ADDRESS FOLLOWING ERRORPC ADDRESS 


000002 
: 1" tat) )+ 7R1 POINTS TO NEXT ARGUEMENT 
B13703 ; TADDRESS OF START OF PRINT TABLE LIST 
1270 5 4 SADDRESS OF STERT OF PRINT DATA 
711 TEND OF ARGUEMENTS? 
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TRAP TABLE 


887 007044 YES 
888 007046 2s: TST ( S INDEX THRU DATA PRINTS 
889 007050 : SEARCH PRINT TABLE LIST FOR TITLE 
890 007052 BNE 2 CHECK NEXT LOCATION IN LIST 
si TYPE agers STRING 
t:GET OVER THE ASCIZ 


3sTYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


896 
897 007110 : TST (R1)+ R1_ NOW CONTAINS RETURN ADDRESS 
898 007112 MOV_R1,(SP) “SETUP RETURN ADDRESS IN STACK 
899 007114 104401 ,65$ 3sTYPE ASCIZ STRING 
007120 000401 64$ 3;GET OVER THE ASCIZ 
<CRLF > 
007124 


901 007124 016700 SAVRO,RO RESTORE REGISTERS 
902 007130 


SAVRS RS 


,65$ zz TYPE ASCIZ STRING 
64$ 7:GET OVER THE ASCIZ 
/  EXPDAT / 

RTS PC 

-67$ 3z TYPE ASCIZ STRING 
66$ ::GET OVER THE ASCIZ 
/  RECDAT / 

RTS PC 

69% 37 TYPE ASCIZ STRING 


BR $ T OVER THE ASCIZ 
3:69$: .ASCIZ / EXP.ADD / 
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TRAP TABLE 


007302 68$: 
924 007302 000207 RTS PC 
925 007304 4$: 
007304 104401 TYPE 71$ :: TYPE ASCIZ STRING 
007310 000407 BR 70$ t:GET OVER THE ASCIZ 
: .ASCIZ /  REC.ADD 


007330 : 
926 007330 000207 RTS PC 
927 007332 S$: 
007332 104401 TYPE 73$ zi: TYPE ASCIZ STRING 
007336 000407 BR 72$ t:GET OVER THE ASCIZ 
“ASCIZ. /  EXP.SP1 
007356 : 
928 007356 000207 RTS PC 
929 007360 6$: 
007360 104401 TYPE 75$ i: TYPE ASCIZ STRING 
007364 000407 BR 74$ *:GET OVER THE ASCIZ 
: .ASCIZ /  REC.SP1 
007404 ; 
930 007404 000207 RTS PC 
931 007406 7$: 
007406 104401 TYPE 77$ :: TYPE ASCIZ STRING 
007412 000407 BR 76$ *:GET OVER THE ASCIZ 
: .ASCIZ /  EXP.PSW 


007432 
932 007432 000207 RTS PC 
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TRAP TABLE 


934 007434 
007434 


10$: 
104401 007442 TYPE 79$ zz TYPE ASCIZ STRING 
007440 000407 ? 


BR 8$ 3 GET OVER THE ASCIZ 
-:79$: .ASCIZ / REC.PSW 

007460 78s: 

935 007460 000207 : RTS PC 


936 007462 11$: 
007462 104401 007470 TYPE 81$ 3s TYPE ASCIZ STRING 
007466 000407 BR 0$ :3GET OVER THE ASC1IZ 
;;81$: .ASCIZ / VIR.ADD 


007506 80S: 
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TRAP TABLE 


938 007506 000207 RTS PC 
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TRAP TABLE 


940 007510 12$: 
007510 104401 007516 TYPE 83$ r: TYPE ASCIZ STRING 
007514 000407 BR 82$ *:GET OVER THE ASCIZ 

--83$: .ASCIZ / PAR.OFF / 


973 007670 
974 007672 


016746 
104402 
000207 
016746 
104402 

207 
016746 
104402 
000207 
016746 
104402 


016746 
104402 
000207 


016746 


016746 
eee 
00020 


RTS PC 
~EVEN 


EXPDAT ,=(SP) 
RTS PC 
RECDAT ,~(SP) 
RTS PC 
EXP.ADD ,-(SP) 
RTS PC 
REC .ADD,-(SP) 
RTS PC 
EXP.SP1,-(SP) 
RTS PC 
REC.SP1,-(SP) 
RTS PC 
EXP.PSW,-(SP) 
RTS PC 
REC .PSW,-(SP) 
RTS PC 
VIR.ADD,~(SP) 
RTS PC 


3zSAVE EXPDAT FOR TYPEOUT 
33GO TYPE--OCTAL ASCII(ALL 


::SAVE RECDAT FOR TYPEOUT 
;;GO TYPE--OCTAL ASCII(ALL 


oh EXP.ADD FOR TYPEOUT 
:GO TYPE--OCTAL ASCII (ALL 


7;SAVE REC.ADD FOR TYPEOUT 
33GO TYPE--OCTAL ASCII (ALi. 


7;SAVE EXP.SP1 FOR TYPEOUT 
33GO TYPE--OCTAL ASCII(ALL 


at 3 REC.SP1 FOR TYPEOUT 
3:GO TYPE=-OCTAL ASCIICALL 


33SAMe EXP.PSW FOR TYPEOUT 
33G0 TYPE--OCTAL ASCII(ALL 


3;SAVE REC.PSwW FOR TYPEOUT 
;;GO TYPE--OCTAL ASCII(ALL 


i:SAVE VIR.ADD FOR TYPEOUT 
:2:GO TYPE--OCTAL ASCII(ALL 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 
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TRAP TABLE 


016746 000052 MOV PAR.OFF,-(SP)  ;;SAVE PAR.OFF FOR TYPEOUT 
104402 TYPOC ATS PC 33GO TYPE=-OCTAL ASCII(ALL DIGITS) 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
A 


: .ASCIZ <15><12>+CKKACAO 11/44 POWER FAIL+ 


Rr RSRa=e 
OWI! 0 NO NOWWU 
ry 4 
FESREES=RS 

ad ad od =! =D 
=NNKR=OIW 


o--—— 
——=WWr 


-ASCIZ <15><12>+CKKACAO 11/44 POWER FAIL+<15><12> 


-_-—. O— 
o--— 
= O39 oS Ss 
—- 
ESS 
—wW 


FRSREE 
RE 


11 
12 
10 
01 
000 
10 
12 
11 
11 
12 
12 


7 
2 
1 
5 
2 
4 
6 
4 
3 
4 
0 
3 
2 
7 
5 


eASCIZ <15><12>+BOOT ENABLE SWITCH MUST BE OFF +<15><12> 


R=SS=URARGR 


0 
7 
0 
1 
2 
5 
7 
0 
1 
5 
7 
3 
5 
4 
5 


Sos 
sb 4 Ss st es 
SRRBSVSS 
SaPRus=ece=2 
KSSKS=SNaNw 
S 22s52R 


UPF: .ASCIZ <15><12>+POWER UP BEFORE POWER DOWN COMPLETE+<15><12> 


eeeeee 
=-—O 
— 
soon 


lelelelelelelelelelelelele)\=) 
RR 


-—3 Se 
ONO 
MSOWNONONNRUW 


MMONM NYP 
& 


So SCOOCOCOOCOCoCoO°ooO 
4 Ss 
— as NN 
SSETERSS 
SS =F =N=S5 
MAWES NNN 
o----- Oo — 


33 
N 
= 
o 
= 
Ww 
Ww 
So 
= 
w 
So 
= 
Nm 
= 
ins) 
So 


DOWN: .ASCIZ <15><12>+POWER DOWN BEFORE UP COMPLETE+<15><12> 
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dando 
, ee 
OonNwe~Y 


SAK 
VUIMOONMYNON 


SS) 
S9>= 

Ve~ 

o-— —— 1 OO 

SS[RRISNERD 

Or PPP mm Ho 

NM ROWUNWIO 


38 


1 
1 
1 
1 
1 
1 
1 
1 


UEWN oO 





K 4 
MACRO M1113 10=DEC-79 10:05 PAGE 22-2 


: 
5 
; 
f 
z 


IOTVEC= 
KDPARO= 


Fatata! 
a 


Ee 


ceeeeees, 


4 


PEE: 


38 


ADD 
ADDWS 
ADDW6 
ADDW7 
ADDW8 
ADDW9 
ADEVCT 
ADEVM 
AENV 
AENVM 
AF ATAL 
AMADR1 
MMADARS= 
AMADRG= 


PWRVE 
RECDAT 


epee rere 
TrT eT ae 
_ =" 


3 3 


NOUS 
" 7 “un 
=== 


SSS SESUESSEESSSESuSEOSES 


ILLDWN 5054 
ILLUP 005042 
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Nm 
So 


STACK1= 000500 TSTS 003370 
TST a 


S8ss 


gggege 
3 


_ 
AN ND PN AR SM HB HN OH 
e22888 
= NU 
m~ 


8 
sissies 
SSNSRISUSSSESSRS 


: 


Retest ees 


38 seiscte 

spice cceeseens 
geese 

SSBnuSSoUine So sacks 


= 


“sn” 

—O~< 

a54° 
at 
i=] 
— 
5 
¢ 


NANA 
NRNN 
oO 


ERERSERE 
SR 


33 

RN 
gggessse 
NM SLA LW 


VIR.AD 007746 


001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 31896 WORDS ( 125 PAGES) 
DYNAMIC MEMORY: 20536 WORDS ( 78 PAGES) 
LAPSED TIME: 00:01:18 

CKKACA.BIN, CKKACA. SEQ=CKKACA.MLB/ML , CKKACA.P11 





